home *** CD-ROM | disk | FTP | other *** search
/ kermit.columbia.edu / kermit.columbia.edu.tar / kermit.columbia.edu / newsgroups / misc.19960209-19960425 / 000245_news@columbia.edu _Wed Mar 20 15:29:47 1996.msg < prev    next >
Internet Message Format  |  1996-05-13  |  2KB
  1. Return-Path: news@columbia.edu
  2. Received: from apakabar.cc.columbia.edu (apakabar.cc.columbia.edu [128.59.35.159]) by watsun.cc.columbia.edu (8.7.3/8.7.3) with ESMTP id PAA09234 for <kermit.misc@watsun>; Wed, 20 Mar 1996 15:29:45 -0500 (EST)
  3. Received: (from news@localhost) by apakabar.cc.columbia.edu (8.7.3/8.7.3) id PAA20726 for kermit.misc@watsun; Wed, 20 Mar 1996 15:29:42 -0500 (EST)
  4. Newsgroups: comp.protocols.kermit.misc
  5. Path: news.columbia.edu!panix!imci5!imci4!newsfeed.internetmci.com!tank.news.pipex.net!pipex!howland.reston.ans.net!ix.netcom.com!netcom.com!gerlach
  6. From: gerlach@netcom.com (Matthew H. Gerlach)
  7. Subject: 7 vs 8 terminal bits with expect
  8. Message-ID: <gerlachDoKunp.2o7@netcom.com>
  9. Organization: NETCOM On-line Communication Services (408 261-4700 guest)
  10. Date: Wed, 20 Mar 1996 17:45:25 GMT
  11. Lines: 32
  12. Sender: gerlach@netcom17.netcom.com
  13.  
  14. Hello fellow kermiters,
  15.  
  16. Currently I am using a PERL based implementation of EXPECT with
  17. kermit to perform serial based automated testing of products we sell.
  18. I prefer this method rather than writing straight kermit scripts because
  19. perl has such wonderful pattern matching capabilities.
  20.  
  21. For completeness I am running with CKermit 190 on a SunOS 4.1.4 machine.
  22.  
  23. Anyway there is a pseudo tty between kermit and my perl script.  The
  24. script reads and writes to this pseudo ttya, and then kermit reads and 
  25. writes out the serial port. 
  26.  
  27. kermit gets fired up with the following command:
  28.  kermit -Y -l /dev/ttyA2 -b 38400 -C "set flow RTS/CTS, set terminal bytesize 8, log session ttyA2, connect"
  29.  
  30. So here is my problem: the box kermit it talking to sends 8 bit characters.
  31. The most significant bit is set when a particular attribute is turned on.
  32. Even when this attribute is turned on, kermit masks the MSB before delivering
  33. the byte to my perl program.  When I use kermit directly it shows the
  34. plain ascii character with MSB stripped as well.  
  35.  
  36. In short, how do I get access to this most significant bit?  
  37.  
  38. I tried using 'set terminal debug on', and this was helpful, but not 
  39. exactly what I want.  It appears when terminal debugging is on, a 
  40. character with the MSB set will be displayed as ~X where X is the ascii 
  41. representation of the least significant 7 bits.
  42.  
  43. Any suggestions would be greatly appreciated.
  44.  
  45. Matthew H. Gerlach